Ƴִ
ʹѭԿƽű̡ʹԱджϺظ VBScript 롣 VBScript пʹ䣺 

If...Then...Else  
Select Case  
ʹ If...Then...Else ж
If...Then...Else ڼǷΪ True  FalseҸݼָҪе䡣ͨʹñȽֵбȽϵıʽйرȽϸϢıȽIf...Then...Else ԰ҪǶס

Ϊ True ʱ
ҪΪ True ʱе䣬ʹ If...Then...Else ĵ﷨ʾ˵﷨עʡ˹ؼ Else

 Sub FixDate()
     Dim myDate
     myDate = #2/13/95#
     If myDate < Now Then myDate = Now
 End Sub
Ҫжд룬ʹöУ飩﷨У飩﷨ End If 䣬ʾ 

 Sub AlertUser(value)
     If value = 0 Then
         AlertLabel.ForeColor = vbRed
         AlertLabel.Font.Bold = True
         AlertLabel.Font.Italic = True
     End If
 End Sub
Ϊ True  False ʱֱĳЩ
ʹ If...Then...Else 䶨ִ飺Ϊ True ʱĳһ飬Ϊ False ʱһ顣

 Sub AlertUser(value)
     If value = 0 Then
         AlertLabel.ForeColor = vbRed
         AlertLabel.Font.Bold = True
         AlertLabel.Font.Italic = True
     Else
         AlertLabel.Forecolor = vbBlack
         AlertLabel.Font.Bold = False
         AlertLabel.Font.Italic = False
     End If
 End Sub
Զж
If...Then...Else һֱӶѡ񣬼 ElseIf Ӿ If...Then...Else ĹܣʹԿƻڶֿܵĳ̡磺 

 Sub ReportValue(value)
     If value = 0 Then
         MsgBox value
     ElseIf value = 1 Then
         MsgBox value
     ElseIf value = 2 then
         Msgbox value
     Else
         Msgbox "ֵΧ"
     End If
 ElseIf Ӿṩѡʹö ElseIf Ӿ侭ú׸ڶнѡĸ÷ʹ Select Case 䡣

ʹ Select Case ж
Select Case ṹṩ If...Then...ElseIf ṹһͨʽԴӶѡִеһSelect Case ṩĹ If...Then...Else ƣǿʹӼ׶

Select Case ṹ俪ʼʹһֻһεļ򵥲ԱʽʽĽṹÿ Case ֵȽϡƥ䣬ִ Case ,ʾ£

 Select Case Document.Form1.CardType.Options(SelectedIndex).Text
    Case "MasterCard"
        DisplayMCLogo
        ValidateMCAccount
    Case "Visa"
        DisplayVisaLogo
        ValidateVisaAccount
    Case "American Express"
        DisplayAMEXCOLogo
        ValidateAMEXCOAccount
    Case Else
        DisplayUnknownImage
        PromptAgain
End Select
ע Select Case ṹֻ㿪ʼһʽֻһΣ If...Then...ElseIf ṹÿ ElseIf ıʽЩʽԸͬÿ ElseIf ıʽͬʱſʹ Select Case ṹ If...Then...ElseIf ṹ

